home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Apple Script / scripts / Canvas Scripts / Charting Script < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.2 KB  |  68 lines  |  [TEXT/ToyS]
  1. set hBottom to 323
  2. set vBottom to 70
  3. set boneWidth to 68
  4. set boneHeight to 27
  5.  
  6. tell application "Canvas™ 3.0"
  7.     Kill Selection 1
  8.     Add to Selection 4
  9.     Invert Selection 1
  10.     set points to 5
  11.     repeat with indcounter from 1 to points
  12.         Execute a Menu Command {16, 258}
  13.         Move the selection to this location {vBottom, hBottom - (indcounter * boneHeight)}
  14.     end repeat
  15.     Kill Selection 1
  16.     Add to Selection 4
  17.     Invert Selection 1
  18.     set points to 7
  19.     repeat with indcounter from 1 to points
  20.         Execute a Menu Command {16, 258}
  21.         Move the selection to this location {vBottom + boneWidth, hBottom - (indcounter * boneHeight)}
  22.     end repeat
  23.     Kill Selection 1
  24.     Add to Selection 4
  25.     Invert Selection 1
  26.     set points to 6
  27.     repeat with indcounter from 1 to points
  28.         Execute a Menu Command {16, 258}
  29.         Move the selection to this location {vBottom + boneWidth + boneWidth, hBottom - (indcounter * boneHeight)}
  30.     end repeat
  31.     Kill Selection 1
  32.     Add to Selection 4
  33.     Invert Selection 1
  34.     set points to 3
  35.     repeat with indcounter from 1 to points
  36.         Execute a Menu Command {16, 258}
  37.         Move the selection to this location {vBottom + boneWidth + boneWidth + boneWidth, hBottom - (indcounter * boneHeight)}
  38.     end repeat
  39.     Kill Selection 1
  40.     Add to Selection 4
  41.     Invert Selection 1
  42.     set points to 8
  43.     repeat with indcounter from 1 to points
  44.         Execute a Menu Command {16, 258}
  45.         Move the selection to this location {vBottom + boneWidth + boneWidth + boneWidth + boneWidth, hBottom - (indcounter * boneHeight)}
  46.     end repeat
  47.     Kill Selection 1
  48.     Add to Selection 4
  49.     Invert Selection 1
  50.     set points to 4
  51.     repeat with indcounter from 1 to points
  52.         Execute a Menu Command {16, 258}
  53.         Move the selection to this location {vBottom + boneWidth + boneWidth + boneWidth + boneWidth + boneWidth, hBottom - (indcounter * boneHeight)}
  54.     end repeat
  55.     Kill Selection 1
  56.     Add to Selection 4
  57.     Invert Selection 1
  58.     set points to 2
  59.     repeat with indcounter from 1 to points
  60.         Execute a Menu Command {16, 258}
  61.         Move the selection to this location {vBottom + boneWidth + boneWidth + boneWidth + boneWidth + boneWidth + boneWidth, hBottom - (indcounter * boneHeight)}
  62.     end repeat
  63.     Kill Selection 1
  64.     Add to Selection 4
  65.     Invert Selection 1
  66.     Execute a Menu Command {7, 258}
  67.     Execute a Menu Command {5, 18}
  68. end tell